home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / grafik / 3d & render tools / irit / contrib / scripts / scrwdrvr.irt < prev    next >
Encoding:
Text File  |  1996-07-16  |  1.6 KB  |  51 lines
  1. # Authors: Pogrebinsky Vladimir
  2. #          Beskrovniy Evgeniy
  3. # BEZIER data
  4.  
  5. crv=cbspline(3, list (
  6.             ctlpt(E3,0.000000, 0, 0.000000),
  7.             ctlpt(E3,0.052000, 0, 0.000000),
  8.             ctlpt(E3,0.104000, 0, 0.000000),
  9.             ctlpt(E3,0.124000, 0, 0.044000),
  10.             ctlpt(E3,0.128000, 0, 0.100000),
  11.             ctlpt(E3,0.100000, 0, 0.124000),
  12.             ctlpt(E3,0.060000, 0, 0.156000),
  13.             ctlpt(E3,0.088000, 0, 0.236000),
  14.             ctlpt(E3,0.108000, 0, 0.296000),
  15.             ctlpt(E3,0.136000, 0, 0.400000),
  16.             ctlpt(E3,0.136000, 0, 0.808000),
  17.             ctlpt(E3,0.044000, 0, 0.888000),
  18.             ctlpt(E3,0.000000, 0, 0.89000)
  19.                        ),
  20.                  list (KV_OPEN) );
  21.   
  22. iadid=SURFREV(crv);
  23. #cil1=CYLIN(vector( 0     ,  0.156, -0.01), vector(0,0,0.15) ,0.058);
  24. #cil2=CYLIN(vector( 0     , -0.156, -0.01), vector(0,0,0.15) ,0.058);
  25. #cil3=CYLIN(vector( 0.1351,  0.078, -0.01), vector(0,0,0.15) ,0.055);
  26. #cil4=CYLIN(vector(-0.1351,  0.078, -0.01), vector(0,0,0.15) ,0.058);
  27. #cil5=CYLIN(vector( 0.1351, -0.078, -0.01), vector(0,0,0.15) ,0.058);
  28. #cil6=CYLIN(vector(-0.1351, -0.078, -0.01), vector(0,0,0.15) ,0.058);
  29.  
  30. cil1=CYLIN(vector(0,0.156,-0.01),vector(0,0,0.15),0.058);
  31. cil2=CYLIN(vector(0,-0.156,-0.01),vector(0,0,0.15),0.058);
  32. cil3=CYLIN(vector(0.156,0,-0.01),vector(0,0,0.15),0.058);
  33. cil4=CYLIN(vector(-0.156,0,-0.01),vector(0,0,0.15),0.058);
  34.  
  35.  
  36. iadid=iadid-cil1;
  37. iadid=iadid-cil2;
  38. iadid=iadid-cil3;
  39. iadid=iadid-cil4;
  40. #iadid=iadid-cil5;
  41. #iadid=iadid-cil6;
  42.  
  43.  
  44. COLOR(iadid,GREEN);
  45. cc=CYLIN(vector(0,0,-1.5),vector(0,0,1.8),0.03);
  46. c1=CYLIN(vector(1,0.4,-1.5),vector(-2,0,0),0.401);
  47. c2=CYLIN(vector(1,-0.4,-1.5),vector(-2,0,0),0.401);
  48. cilinder=cc-c1-c2;
  49. COLOR(cilinder,WHITE);
  50. view(list(axes,iadid,cilinder),ON);
  51.